00100		TITLE PLOT
00200		INTERNAL PLOT
00300		EXTERNAL FASTOU,FINFIL,EXIT,PUTFIL,OUTF
00400	
00500	LX:	0
00600	N:	BLOCK =128
00700	PLOT:	0		;SUBROUTINE PLOT(I,J,K)
00800		SETO  4,		;COMMON /OUTF/JJ
00900		CAMN	4,OUTF		;DIMENSION N(148)
01000		JRST	PL4		;IF(JJ.EQ.-1)GO TO 4
01100		MOVNM  4,LX		;L=1
01300		MOVEI	4,=127		;N(1)=127
01400		MOVEM	4,N
01500		MOVE	4,[ASCIZ/" "/]		;IF(JJ.EQ.' ')JJ='PLT'
01600		CAME	4,OUTF
01700		JRST	PLB
01800		MOVE	4,[ASCIZ/"PLT"/]
01900		MOVEM	4,OUTF
02000	PLB:	JSA	16,PUTFIL	;CALL PUTFIL(JJ)
02100		JUMP	OUTF
02200		SETOM	OUTF		;JJ=-1
02300	PL4:	MOVE	5,@2(16)	;4	IF(K.EQ.99)GO TO 1
02400		CAIN	5,=99
02500		JRST	PL1
02600		AOS	LX		;L=L+1
02700		MOVEI	7,N
02800		ADD	7,LX		;CALL PAC(N(L),I)[SEE MSFAI.FAI]
02900		HRRZ	4,2(16)
03000		HRR	5,@4
03100		LSHC	5,-10
03200		HRRZ	4,1(16)
03300		HRR	5,@4
03400		LSHC	5,-16
03500		HRRZ	4,(16)
03600		HRR	5,@4
03700		LSHC	5,-16
03800		MOVEM	6,-1(7)
03900	
04000		MOVE	7,LX
04100		CAIGE	7,=128	;3	IF(L.LT.128)RETURN
04200		JRA	16,3(16)
04300		JSA	16,FASTOU	;2	CALL FASTOU(N,128)
04400		JUMP	N
04500		JUMP	[=128]
04600		MOVEI	7,1		;L=1
04700		MOVEM	7,LX
04800		JRA	16,3(16)	;RETURN
04900	PL1:	MOVE	5,LX		;1	N(1)=L
05000		MOVEM	5,N
05100		MOVEI	7,N		;J=N(L)
05200		ADD	7,5
05300		MOVE	7,-1(7)
05400	;;	MOVEM	7,@1(16)
05500	PL100:	MOVEI	4,N		;DO 100 JJ=L,128
05600		ADD	4,5	;100	N(JJ)=J
05700		MOVEM	7,-1(4)
05800		CAIGE	5,=128
05900		AOJA	5,PL100
06000		JSA	16,FASTOU	;CALL FASTOU(N,128)
06100		JUMP	N
06200		JUMP	[=128]
06300		JSA	16,FINFIL	;CALL FINFIL
06400		SETZM	OUTF		;JJ=0
06500		JSA	16,EXIT		;CALL EXIT
06600	
06700		END